{{{{read (k);
    read (n)};
   r := 1};
  while (k > 0) 
  do 
  {{if ((k % 2) != 0) then r := (r * n) else skip;
    n := (n * n)};
   k := (k / 2)}};
 write (r)}
